home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / datatypes.inc < prev    next >
Text File  |  1998-06-24  |  3KB  |  130 lines
  1. pattern datatypesPrivate1 is
  2.     push a6;
  3.     a6:=DataTypesBase; jsr [a6-30];
  4.     pop a6;
  5. endp;                                                            # DATATYPESPRIVATE1
  6.  
  7. pattern ObtainDataTypeA(_type,_handle,_attrs) is
  8.     push a6;
  9.     safe d0.l:=_type; a0:=_handle; a1:=_attrs;;
  10.     a6:=DataTypesBase; jsr [a6-36];
  11.     pop a6;
  12. endp;                                                            # OBTAINDATATYPEA
  13.  
  14. pattern ReleaseDataType(_dt) is
  15.     push a6;
  16.     a0:=_dt;
  17.     a6:=DataTypesBase; jsr [a6-42];
  18.     pop a6;
  19. endp;                                                            # RELEASEDATATYPE
  20.  
  21. pattern NewDTObjectA(_name,_attrs) is
  22.     push a6;
  23.     safe d0.l:=_name; a0:=_attrs;;
  24.     a6:=DataTypesBase; jsr [a6-48];
  25.     pop a6;
  26. endp;                                                            # NEWDTOBJECTA
  27.  
  28. pattern DisposeDTObject(_o) is
  29.     push a6;
  30.     a0:=_o;
  31.     a6:=DataTypesBase; jsr [a6-54];
  32.     pop a6;
  33. endp;                                                            # DISPOSEDTOBJECT
  34.  
  35. pattern SetDTAttrsA(_o,_win,_req,_attrs) is
  36.     push a2\a3\a6;
  37.     safe a0:=_o; a1:=_win; a2:=_req; a3:=_attrs;;
  38.     a6:=DataTypesBase; jsr [a6-60];
  39.     pop a2\a3\a6;
  40. endp;                                                            # SETDTATTRSA
  41.  
  42. pattern GetDTAttrsA(_o,_attrs) is
  43.     push a2\a6;
  44.     safe a0:=_o; a2:=_attrs;;
  45.     a6:=DataTypesBase; jsr [a6-66];
  46.     pop a2\a6;
  47. endp;                                                            # GETDTATTRSA
  48.  
  49. pattern AddDTObject(_win,_req,_o,_pos) is
  50.     push a2\a6;
  51.     safe a0:=_win; a1:=_req; a2:=_o; d0.l:=_pos;;
  52.     a6:=DataTypesBase; jsr [a6-72];
  53.     pop a2\a6;
  54. endp;                                                            # ADDDTOBJECT
  55.  
  56. pattern RefreshDTObjectA(_o,_win,_req,_attrs) is
  57.     push a2\a3\a6;
  58.     safe a0:=_o; a1:=_win; a2:=_req; a3:=_attrs;;
  59.     a6:=DataTypesBase; jsr [a6-78];
  60.     pop a2\a3\a6;
  61. endp;                                                            # REFRESHDTOBJECTA
  62.  
  63. pattern DoAsyncLayout(_o,_gpl) is
  64.     push a6;
  65.     safe a0:=_o; a1:=_gpl;;
  66.     a6:=DataTypesBase; jsr [a6-84];
  67.     pop a6;
  68. endp;                                                            # DOASYNCLAYOUT
  69.  
  70. pattern DoDTMethodA(_o,_win,_req,_msg) is
  71.     push a2\a3\a6;
  72.     safe a0:=_o; a1:=_win; a2:=_req; a3:=_msg;;
  73.     a6:=DataTypesBase; jsr [a6-90];
  74.     pop a2\a3\a6;
  75. endp;                                                            # DODTMETHODA
  76.  
  77. pattern RemoveDTObject(_win,_o) is
  78.     push a6;
  79.     safe a0:=_win; a1:=_o;;
  80.     a6:=DataTypesBase; jsr [a6-96];
  81.     pop a6;
  82. endp;                                                            # REMOVEDTOBJECT
  83.  
  84. pattern GetDTMethods(_object) is
  85.     push a6;
  86.     a0:=_object;
  87.     a6:=DataTypesBase; jsr [a6-102];
  88.     pop a6;
  89. endp;                                                            # GETDTMETHODS
  90.  
  91. pattern GetDTTriggerMethods(_object) is
  92.     push a6;
  93.     a0:=_object;
  94.     a6:=DataTypesBase; jsr [a6-108];
  95.     pop a6;
  96. endp;                                                            # GETDTTRIGGERMETHODS
  97.  
  98. pattern PrintDTObjectA(_o,_w,_r,_msg) is
  99.     push a2\a3\a6;
  100.     safe a0:=_o; a1:=_w; a2:=_r; a3:=_msg;;
  101.     a6:=DataTypesBase; jsr [a6-114];
  102.     pop a2\a3\a6;
  103. endp;                                                            # PRINTDTOBJECTA
  104.  
  105. pattern datatypesPrivate2 is
  106.     push a6;
  107.     a6:=DataTypesBase; jsr [a6-120];
  108.     pop a6;
  109. endp;                                                            # DATATYPESPRIVATE2
  110.  
  111. pattern datatypesPrivate3 is
  112.     push a6;
  113.     a6:=DataTypesBase; jsr [a6-126];
  114.     pop a6;
  115. endp;                                                            # DATATYPESPRIVATE3
  116.  
  117. pattern datatypesPrivate4 is
  118.     push a6;
  119.     a6:=DataTypesBase; jsr [a6-132];
  120.     pop a6;
  121. endp;                                                            # DATATYPESPRIVATE4
  122.  
  123. pattern GetDTString(_id) is
  124.     push a6;
  125.     d0.l:=_id;
  126.     a6:=DataTypesBase; jsr [a6-138];
  127.     pop a6;
  128. endp;                                                            # GETDTSTRING
  129.  
  130.